% Producing Figure 11

close all

chi0_diff    = [ 0.020   0.025   0.030   0.035   0.040   0.045   0.050   0.250   0.500   0.750];
crisis_prob  = [ 0.0175  0.0171  0.0166  0.0164  0.0159  0.0157  0.0153  0.0093  0.0049  0.0029];
run_prob     = [ 0.0790  0.0733  0.0675  0.0635  0.0596  0.0554  0.0522  0.0185  0.0075  0.0041];
leverage_avg = [15.839  15.3427 14.8575 14.4953 14.1476 13.8146 13.5292 10.3910  8.9240  8.0834];

figure('Units','Inches','OuterPosition',[1 0 7 7])
%yyaxis left
plot(chi0_diff,run_prob*100,'r-.','LineWidth',3)
hold on
plot(chi0_diff,crisis_prob*100,'b-','LineWidth',3)
%hold on
%yyaxis right
%plot(chi0_diff,leverage_avg,'k:','LineWidth',3)
grid on
ax = gca;
ax.GridAlpha = 0.3;
xlabel('\chi_0')
set(gca,'FontSize',20);
xlim([0 0.75])
xticks(0:0.25:0.75)
ytickformat('percentage')
%legend({'Crisis prob. (left)','Run prob. (left)','Leverage (right)'})
legend({'Bank run','Banking Crisis'})
